home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / NLphoneCheck 2.0 / NLphoneCheck2.0 / FMPR v2.x / NLphoneCheck1.1E,'s (.txt) < prev    next >
Encoding:
FileMaker Pro Database  |  1996-04-17  |  41.5 KB  |  474 lines  |  [FMPR/FMPR]
  1. HBAM2001MAY84
  2. NLphoneCheck1.1E,'s:*
  3. 01114
  4. 104444444
  5. 12345
  6. 174555555
  7. 6266166
  8. 666666
  9. 8001234
  10. Number
  11. 06-11
  12. 0800-12
  13. 0909-22
  14. Alarm
  15. Nieuw
  16. Wordt
  17. Id@ntL@belB
  18. veld,
  19. maar zie hieronder voor een betere truc.
  20.  Nu test op lookup fout
  21. E: 0&
  22. ?? / ? d >>>  F!('
  23. Zapf Chancery
  24. Pro 1.0F!
  25. Pro 2.0 - 2.1I
  26. US English - Spelling
  27. ToNum("0,."&TelOld)*10^6 ,2)="24"or Left(TextToNum("0,."&TelOld
  28. 42578
  29. 42579
  30. 42576
  31. No digits found
  32. 14711164
  33. You cannot enter data into a calculationfield,
  34. but see below for a better trick.
  35. Je kan niet invoeren in een rekenveld,
  36. maar zie hieronder voor een betere truc.
  37. EBThe trick: TelOld is transparent, and on top of/en boven op Telnew
  38. E: Letter O/o  
  39.   digit 0! F!'
  40. Too few digits'
  41. Old intern. conv.&
  42. OK: Inter
  43. TelNew#2B
  44. Dubbel veld, zowel invoer als resultaat.
  45. Druk op Tab om de invoer te zien,
  46. klik erbuiten voor het resultaat.
  47. Handig als je ruimte tekort komt.
  48. Double field, both input and result.
  49. Press Tab to see the input,
  50. CB)lick outside for the result.
  51. Saves space.
  52. Num("0,."&TelOld)*10^10 ,8 ,2) &  Middle(TelOld,Position(TelOld&"; ","; ",1),32),                                                                                          If(1=1 ,"","Now length check")  & If((LJ
  53. ength(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) 
  54.  Middle(@#2 ,3 ,1) and Left (@#2 ,1) < 5) ,               
  55. User Dictionary
  56. User Dictionary
  57. 10^6 ,2)="20"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="24"or Left(TextToNum("0,."&TelOld
  58. 4/17/96
  59.     COMMENT E
  60. ID@NTL@BEL
  61. TELNEW#2
  62. TELOLD
  63. TelOldB
  64. If(Left(TextToNum("0,."&TelOld)*10^6 ,2)="10"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="13"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="20"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="24"or Left(TextToNum("0,."&TelOld
  65. JJLcheckData
  66. If(Left(TextToNum("0,."&TelOld)*10^6 ,2)="10"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="13"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="20"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="24"or Left(TextToNum("0,."&TelOldB
  67. )*10^6 ,2)="26"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="36"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="37"or (Left(TextToNum("0,."&TelOld)*10^6 ,2)="40" and  Left(TextToNum("0,."&TelOld)*10^6 ,3) 
  68.  "406")or Left
  69. TelOld
  70. TelNew#2
  71. E    Comment E
  72. SingleB
  73. SingleB
  74. TelOld
  75. E: 0'
  76. ,('    -0  ?? F!('
  77. 0611; oud alarm nr; wordt 112F
  78. 6880060Q
  79. OK: 06 Numbera
  80. 06-11; oud alarm nr; wordt 112
  81. 8001234; 800 nrF
  82. 8788000Q
  83. OK: New Euro free info nra
  84. 0800-12 34; 800 nr
  85. 909 2212 34 56; nieuw koop nrF
  86. 9789090Q
  87. OK: New Euro paid info nra
  88. 0909-22 12 34 56; nieuw koop nrruw koop nr6; nieuw koop nrkoop nrop nr`
  89. OK: Old nr converteda
  90. 024-366 66 66
  91. 030 22 22 2; tst 123F
  92. 16703021Q
  93. Fantasienr, niet draaien!`
  94. 1 digit(s) to shorta
  95. E: 1d <<<< F!
  96. 030 22 22 22; tst 123F
  97. 16703021
  98.                        If(Left(TextToNum("1,."&TelOld)*1000 ,4) > 1090 and Left(TextToNum("1,."&TelOld)*1000 ,4)
  99. 1099 ,"Old intern. conv.",                                                   If((Position(TelOld,D
  100. "+",1) 
  101.  0 and TextToNum("0,."&TelOld) =            TextToNum("0,."&                                                                      Right(TelOld, Length(TelOld)- Position(TelOld,"+",1))))                 
  102. Dubbel veld, zowel invoer als resultaat.
  103. Druk op Tab om de invoer te zien,
  104. klik erbuiten voor het resultaat.
  105. Handig als je ruimte tekort komt.
  106. Double field, both input and result.
  107. Press Tab to see the input,
  108. CB)lick outside for the result.
  109. Saves space.
  110. Id@ntL@belB
  111.  A    Comment EB
  112. If(Position(TelOld,"O",1) 
  113.  1 and                               Position(TelOld,"O",1) < Position(TelOld & ";",";",1),                          "E: Letter O/o  
  114.   digit 0! F!", If(Length(Int(TextToNum("0,."&TelB
  115. Old&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,                    Position(TelOld&"; ", "; ", 1))&1))-2)))  < 3 ,"Too few digits",                                             
  116. 0,.&C
  117. !!!!!  To convert imported or already existing records
  118. you must select
  119. Relookup from the Edit Menu, 
  120. with the cursor in the (renamed?) field TelOld.  !!!!!!!
  121. 112; nieuw alarm nr.F
  122. 1120S
  123. Gaat ergens in 1996 in
  124. Id@ntL@bel
  125. TelNew#2
  126. E    Comment E
  127. TrucB
  128.  ,5), If(Left(TextToNum("0,."&TelOld)*10^7 ,5)="42576", Left(TextToNum("0,."&TelOld)*10^7 ,6), Left(TextToNum("0,."&TelOld)*10^6 ,4) ))))
  129. 950"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4951"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="8360"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="8851"or Left(TextToNum("0,."&TelOld)*10^7 ,5)="42572"or Left(TextToNumL
  130. ("0,."&TelOld)*10^7 ,5)="42575"or Left(TextToNum("0,."&TelOld)*10^7 ,5)="42577"or Left(TextToNum("0,."&TelOld)*10^7 ,5)="42578"or Left(TextToNum("0,."&TelOld)*10^7 ,5)="42579", Left(TextToNum("0,."&TelOld)*10^7
  131.  short'
  132.  long
  133. Abo nr begint met een 0'
  134. OK: &
  135. '    06 Number'
  136. New Euro free info nr'
  137. New Euro
  138. TelNew#2B
  139. Now length check
  140. '    d <<<< F!'    d >>>> F!
  141. E: O/o  
  142.  0! F!'
  143. Trick/Truc
  144. Single
  145. "or Left(TextToNum("0,."&TelOld)*10^6 ,4)="2990"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="3450"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="3480"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4132"or Left(TextToNum("0,J
  146. ."&TelOld)*10^6 ,4)="4160"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4167"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4180"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4927"or Left(TextToNum("0,."&TelOld)*10^6 ,4)="4
  147. )="6"  or Left(TextToNum("0,."&TelOld)*10^6 ,1)="7", Left(TextToNum("0,."&TelOld)*10^6 , If(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,       H
  148.                Position(TelOld&"; ", "; ", 1))&1))-3))) < 8 or                                Left(TextToNum("0,."&TelOld)*10^6 ,1)="6",2 ,3)),                     If(Left(TextToNum("0,."&TelOld)*10^6 ,4)="2907
  149. 112; nieuw alarm nr.F
  150. 1120S
  151. Gaat ergens in 1996 in`
  152. OK: New Euro nra
  153. 112; nieuw alarm nr.maar zie hieronder voor een betere truc.
  154. EBThe trick: TelOld is transparent, and on top of/en boven op Telnew
  155. ListB
  156. l    {I0_*
  157. L    [i0
  158. l    {I0_*
  159. L    [i0
  160. l    {I0_*
  161. L    [i0
  162. l    {I0_*
  163. L    [i0
  164. L    [i0
  165. Zapf Chancery
  166.                                              If(1 = 1 ,""," Nu test op lookup fout") &                                              If(@#2 = 0 ,"Area+subs. doesnt exist, or missing digits",                     H
  167.                          If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) = 8  and  Left(@#2,1) = 1 ), 
  168.     Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ","; ",1)) &1)) - 3 ,1))&" "& Middle(TextToNum("0.,"&TelOld&1),                                                    Length(TextToNum("0,."&Left(TelOld,PoZbsition(TelOld&"; ","; ",1))& 1)) - 2 ,2))& Middle(TelOld,Position(TelOld&"; ","; ",1),32) ))))))))
  169. Middle(TelOld,Position(TelOld & "; ","; ",1)+2 ,99),                             If(Left(TextToNum("
  170. Alarm
  171. Comment
  172. Nieuw
  173. *010-444
  174. 0111-41
  175. 0174-55
  176. 0186-66
  177. 020-626
  178. 024-366
  179. 030-222
  180. 0800-12
  181. 0909-22
  182. 6266166
  183. Alarm
  184. Comment
  185. Nieuw
  186. Onzinnig
  187. Viavia
  188. Wordt
  189. Viavia
  190. Converted
  191. Dialling
  192. Digit
  193. Digits
  194. Doesnt
  195. Exist
  196. Letter
  197. Missing
  198. Number
  199. Short
  200. 010-444
  201. 0111-41
  202. 0174-55
  203. E: 0&
  204. ?? / ? d >>>  F!('
  205. Fantasienr, niet draaien!`
  206. OK: Old nr converteda
  207. 030-222 22 22; tst 123
  208. 030 222 22 22; tst 123F
  209. 2780300Q
  210. Fantasienr, niet draaien!`
  211. OK: New nra
  212. 030-222 22 22; tst 123
  213. 030 222 22 22 2; tst123F
  214. 2780300Q
  215. Fantasienr, niet draaien!`
  216. 1 digit(s) to longa
  217. E: 1d >>>> F!
  218. 104444444; bgg 555 55 55F
  219. 3780100Q
  220. OK: Old and new, same diallinga
  221. 010-444 44 44; bgg 555 55 55
  222. %A    174555555F
  223. 3681740Q
  224. 1745`
  225. OK: Old and new, same diallinga
  226. 0174-55 55 55P
  227.                                                         If(Middle(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2)),                      (Middle(@#2 ,3 ,1)-Middle(@#2 ,2 ,1)+2),1) = 0 anN
  228. d Left(@#2,1) < 5 ,                          "E: 0"&Left(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2)),                            Middle(@#2,3 ,1) - Middle(@#2,2 ,1) + 1)& "-0  ?? F!
  229. l    {I0_*
  230. A    JJL/ShareB
  231. Users
  232. YesfD
  233.     Helvetica
  234. Monaco
  235. Chicago
  236. New Century Schlbk
  237. Geneva
  238. Courier
  239. Times
  240. Zapf Chancery
  241. 0,."&Left(TelOld,Position(TelOld&"; ","; ",1)) &1)) - Middle(@#2 ,2 ,1), Middle(@#2 ,2 ,1)-4)&" ","")&                                              If(Middle(@#2 ,2 ,1)  > 3 ,Middle(TextToNum("0.,"&TelOld&1),  X
  242.                                                   Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ","; ",1)) &1)) - 4 ,2), Middle(TextToNum("0.,"&TelOld&1),                                                
  243. "OK: New nr",                                If(1=1 ,"","Now length check")  & If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&J
  244. "; ", "; ", 1))&1))-3))) 
  245.  Middle(@#2 ,3 ,1) and Left (@#2 ,1) < 5)  and (Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; 
  246. 999; 123F
  247. 9991`*Area+subs. doesnt exist, or missing digitsa
  248. E: 0999-1?? / ? d >>>  F!
  249. ; onzinnig comment`
  250. Too few digitsa
  251. onzinnig comment
  252. 080 666666F
  253. 06702431Q
  254. OK: Old nr converteda
  255. 024-366 66 66
  256. 030 22 22 2; tst 123F
  257. 16703021Q
  258. Fantasienr, niet draaien!`
  259. 1 digit(s) to shorta
  260. E: 1d <<<< F!
  261. 030 22 22 22; tst 123F
  262. 16703021Q
  263. 300 22 22 22; tst 123F
  264. 16703021
  265. TelOld)*10^6 ,2)="30"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="33"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="35"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="38"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="43"or Left(TF
  266. extToNum("0,."&TelOld)*10^6 ,2)="45"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="46"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="53"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="58"or Left(TextToNum("0,."&TelOld)*10^6 ,1
  267. (TextToNum("0,."&TelOld)*10^6 ,2)="50"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="55"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="70"or Left(TextToNum("0,."&TelOld)*10^6 ,2) ="80"or Left(TextToNum("0,."&TelOld)*10^6D
  268.  ,2)="85"or Left(TextToNum("0,."&TelOld)*10^6 ,2) ="90", Left(TextToNum("0,."&TelOld)*10^6 ,3), If(Left(TextToNum("0,."&TelOld)*10^6 ,2)="15"or Left(TextToNum("0,."&TelOld)*10^6 ,2)="23"or Left(TextToNum("0,."&
  269.          If(Left(@#2,1) > 4 ,If(Left (@#2 ,1) = 6 ,"06 Number","") &     If(Left (@#2 ,1) = 8 ,"New Euro free info nr","") &                   If(Left (@#2 ,1) = 9 ,"New Euro paid info nr",""),                 P
  270.      If(Left (@#2 ,1)  
  271.  1 ,"Old nr converted","")  &                          If(Left (@#2 ,1) = 2 ,"New nr","")&                                            If(Left (@#2 ,1) = 3 ,"Old and new, same dialling","Q
  272. ")) )))))))))
  273. ",                                                                                             "0"&TextToNum(Middle(@#2 ,4 ,3))&"-"&                     If(Left(@#2,1) > 4 , Left(Middle(TextToNum(Middle(TelOld,P
  274.  Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))),If(Left(@#2,1) = 6 ,2 ,4),9),2) & If(Length(Middle(TextToNum(Middle(TelOld, Position(TelOld,Left(@#2,1),1), Posit
  275. ion(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))),If(Left(@#2,1) = 6 ,2 ,4),9)) >          2 ," ","")& Middle(Middle(TextToNum(Middle(TelOld,Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1)R
  276.  - Position(TelOld,Left(@#2,1),1))), If(Left(@#2,1) = 6 ,2 ,4),9),3 ,2) & If(Length(Middle(TextToNum(Middle(TelOld, Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))
  277. (TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) - Middle(@#2 ,3 ,1)) <0 , " short",  " long"),                                                                               If(Middle(Int(TextToNum("0,."&TelOldN
  278. &1)* 10^(Length(TextToNum("0,."&TelOld&1))-2)),                      (Middle(@#2 ,3 ,1)-Middle(@#2 ,2 ,1)+2),1) = 0 and               Left(@#2,1) < 5 ,"Abo nr begint met een 0",  "OK: " &                       
  279. ", 1))&1))-3))) 
  280.  8 or Left(@#2,1) 
  281.  1),                                                                              Abs(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextTL
  282. oNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) - Middle(@#2 ,3 ,1))& " digit(s) to" & If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left
  283.                  10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) = 8  and  Left(@#2,1) = 1),                                                           "0"& Middle(TextToNum("0,."H
  284. &TelOld)*10^9 ,1 ,If(Length(@#1)=3 ,2 ,3)) & "-" & Middle(TextToNum("0,."&TelOld)*10^9 ,If(Length(@#1)=3 ,3 ,4),If(Length(@#1)=3 ,3 ,2)) & " " & Middle (TextToNum("0,."&TelOld)*10^9 ,6 ,2) & " " & Middle(TextTo
  285.  digit(s) to('
  286. 0174-55
  287. 0186-66
  288. 020-626
  289. 024-366
  290. 030-222
  291. 06-11
  292. 0800-12
  293. 0909-22
  294. 0999-1
  295. 6266166
  296. 42572
  297. 42575
  298. 42577
  299. ),If(Left(@#2,1) = 6 ,2 ,4),9)) > 4 ,      " ","")& Middle(Middle(TextToNum(Middle(TelOld,Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))), If(Left(@#2,1) = 6 ,2 ,T
  300. 4),9),5 ,2) & If(Length(Middle(TextToNum(Middle(TelOld, Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))),If(Left(@#2,1) = 6 ,2 ,4),9)) > 6 ,      " ","")& Middle(M
  301.   "E: " & Abs(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) - Middle(@#2 ,3 ,1))& If((Length(Int(TextToNL
  302. um("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld,Position(TelOld&"; ", "; ", 1))&1))-3))) - Middle(@#2 ,3 ,1)) <0 , "d <<<< F!",  "d >>>> F!"),                       
  303. TrucB
  304. 020 6266166F
  305. 3780200Q
  306. ViaVia`
  307. OK: Old and new, same diallinga
  308. 020-626 61 66
  309. ; (020) 626.616.6; = ViaViaF
  310. 3780200Q
  311. 206S7Gebruik comment om afwijkende formattering op te leggen`
  312. Too few digitsa
  313. (020) 626.616.6; = ViaVia
  314. 186 66 66 66F
  315. 14718666 3Q
  316. 1866`
  317. OK: New nra
  318. 0186-66 66 66
  319. 01114 12345F
  320. 14711164 3Q
  321. 1114`
  322. OK: New nra
  323. 0111-41 23 45
  324. *A    09O9 1234F
  325. 9912`
  326. E: Letter O/o  
  327.   digit 0! F!a
  328. E: O/o  
  329.  0! F!
  330. Onzinnig
  331. Viavia
  332. Wordt
  333. Nieuw
  334. Onzinnig
  335. Viavia
  336. Wordt
  337. 6266166
  338. Alarm
  339. Comment
  340. Nieuw
  341. Onzinnig
  342. Viavia
  343. Wordt
  344. Comment
  345. Nieuw
  346. Onzinnig
  347. Viavia
  348. Wordt
  349. Alarm
  350. Comment
  351. Nieuw
  352. Onzinnig
  353. Viavia
  354. Wordt
  355. 020-626
  356. 024-366
  357. 030-222
  358. 06-11
  359. 0800-12
  360. 0909-22
  361. 0999-1
  362. 6266166
  363. Alarm
  364. Comment
  365. Nieuw
  366. Onzinnig
  367. Viavia
  368. Wordt
  369. 6880060
  370. 8788000
  371. 9789090
  372. Afwijkende
  373. Comment
  374. Draaien
  375. Ergens
  376. Fantasienr
  377. Formattering
  378. Gebruik
  379. Leggen
  380. Number
  381. Short
  382. 024-366
  383. 030-222
  384. 06-11
  385. 0800-12
  386. 0909-22
  387. 0999-1
  388. Onzinnig
  389. Tst123
  390. Viavia
  391. Wordt
  392. 06702431
  393. 14711164
  394. 14718666
  395. 16703021
  396. 2780300
  397. 3681740
  398. 3780100
  399. 3780200
  400. oesnt
  401. Exist
  402. Missing
  403. Number
  404. 06-11
  405. 0800-12
  406. 0909-22
  407. 0999-1
  408. Alarm
  409. Comment
  410. Nieuw
  411. Onzinnig
  412. Wordt
  413. Wordt
  414. Alarm
  415. Comment
  416. Nieuw
  417. Onzinnig
  418. 6880060
  419. 8788000
  420. 9789090
  421. Ergens
  422. Digits
  423. Doesnt
  424. Exist
  425. Missing
  426. Number
  427. 06-11
  428. 0800-12
  429. 0909-22
  430. 0999-1
  431. Alarm
  432. Nieuw
  433. Wordt
  434.                                                                or (TextToNum("0,."&TelOld) < 1/100) , "OK: International",                                                           If(Left(@#1,1)=1 and (Length(F
  435. 1&TextToNum(TelOld)) - Length(TextToNum("0,."&                               Middle(TelOld,Position(TelOld & "; ","; ",1),32)&1)))=2 ,                          "OK: New Euro nr",                                
  436. 1,."&TelOld)*1000 ,4) > 1090 and Left(TextToNum("1,."&TelOld)*1000 ,4) 
  437.  1099 ,       "00"&Right(TelOld, Length(TelOld)-2),               If((Position(TelOld,"+",1) 
  438.  0 and TextToNum("0,."&TelOld) =            D
  439. TextToNum("0,."&Right(TelOld, Length(TelOld)- Position(TelOld,"+",1)))) or (TextToNum("0,."&TelOld) < 1/100) or (Left(@#1,1)=1 and (Length(1&TextToNum(TelOld)) - Length(TextToNum("0,."&Middle(TelOld,Position(Te
  440.  paid info nr'
  441. Old nr converted'
  442. New nr'
  443. Old and new, same dialling'
  444. '*Area+subs. doesnt exD
  445. ist, or missing digits'
  446. OK: New nr
  447. Now length check
  448. TelNew#2B
  449. Single
  450. Single
  451. lOld & "; ","; ",1),32)&1)))=2), TelOld,                                                                   If(1 = 1 ,""," Nu test op lookup fout") &                                              If(@#2 = 0 ,"E: F
  452. 0"&Left(@#1, If(Length(@#1) < 4 ,2 ,3))&"-"& Middle(@#1,If(Length(@#1) < 4 ,3 ,4),10)&"?? / ? d >>>  F!",                                              If((Length(Int(TextToNum("0,."&TelOld&1)*                  
  453. national&
  454. OK: New Euro nr
  455.  Nu test op lookup fout
  456. '*Area+subs. doesnt exD
  457. ist, or missing digits'
  458. OK: New nr
  459. Now length check
  460. ")) )))))))))
  461. TelOld
  462. TelOld
  463. iddle(TextToNum(Middle(TelOld,Position(TelOld,Left(@#2,1),1), Position(TelOld&"; ","; ",1) - Position(TelOld,Left(@#2,1),1))), If(Left(@#2,1) = 6 ,2 ,4),9),7 ,2),                                                V
  464.           Middle(@#2,7 ,Right(@#2 ,1))&                                          If(Middle(@#2 ,2 ,1) > 4 ,Middle(TextToNum("0.,"&TelOld&1),                                                    Length(TextToNum("
  465. TelNew#2B
  466. If(Position(TelOld,"O",1) 
  467.  1 and                               Position(TelOld,"O",1) < Position(TelOld & ";",";",1),"E: O/o  
  468.  0! F!", If(Length(Int(TextToNum("0,."&TelOld&1)*                                 B
  469.   10^(Length(TextToNum("0,."&Left(TelOld,                  Position(TelOld&"; ", "; ", 1))&1))-2))) < 3 ,     Middle(TelOld,Position(TelOld & "; ","; ",1)+2 ,99),                             If(Left(TextToNum("
  470. Onzinnig
  471. 6880060@
  472. 0174-55e
  473. Onzinnig@
  474.